home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH06.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  40 lines
  1. 10  '**********************************
  2. 20  '**          GRAPH06             **
  3. 30  '**********************************
  4. 40  SCREEN 2:KEY OFF:CLS:N=5
  5. 50  LOCATE 3,25 :PRINT"STANDARD TRIG FUNCTIONS";
  6. 60  LOCATE 5,25:PRINT"              ";
  7. 70  FOR Y = 1 TO 2000 : NEXT Y
  8. 80  LOCATE 5,25:PRINT"             ";
  9. 90  'DRAW CENTER LINE ON GRAPH
  10. 100  LINE (628,99)-(0,99)
  11. 110  LOCATE 14,1:PRINT 0:LOCATE 14,19:PRINT 90
  12. 120  LOCATE 14,38:PRINT 180:LOCATE 14,58:PRINT 270:LOCATE 14,76:PRINT 360
  13. 130  FOR Y = 1 TO 500:NEXT Y
  14. 140  LOCATE 4,4:PRINT "= TAN (X)"
  15. 150  LINE (0,99)-(0,99)
  16. 160  FOR X = O TO 628 STEP N
  17. 170  IF ABS(TAN(X/100)) > 6 THEN LINE (X,199)-(X,199),0 : GOTO 210
  18. 180  IF ABS(COS(X/100)) > 0.2 THEN LINE -(X,100-20*(TAN(X/100)))
  19. 190  IF ABS(1000 * (TAN(X/100)) + 1000) < 37 THEN 210
  20. 200  SOUND (200 * (TAN(X/100)) + 1200),1
  21. 210  NEXT X
  22. 220  FOR Y = 1 TO 500:NEXT Y
  23. 230  LOCATE 5,4:PRINT "= SIN (X) "
  24. 240  LINE (0,99)-(0,99)
  25. 250  FOR X = 0 TO 628 STEP N
  26. 260  LINE -(X,100-20*SIN(X/100))
  27. 270  SOUND (1000 * SIN(X/100) + 1037),1
  28. 280  NEXT X
  29. 290  FOR Y = 1 TO 500:NEXT Y
  30. 300  LOCATE 6,4:PRINT "= COS (X)"
  31. 310  LINE (0,80)-(0,80)
  32. 320  FOR X = 0 TO 628 STEP N
  33. 330  LINE -(X,100-20*COS(X/100))
  34. 340  SOUND (1000 * COS(X/100) + 1037),1
  35. 350  NEXT X
  36. 360  LOCATE 4,25:PRINT "REPEAT ? (Y) OR (N) - ";
  37. 370  A$ = INKEY$ : IF A$ = "" THEN 370
  38. 380  IF A$ = "Y" THEN 10
  39. 390  CLS
  40.